home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
programr
/
vbasic
/
health.exe
/
ASSESS2.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
21KB
|
614 lines
VERSION 2.00
Begin Form assess2
BorderStyle = 0 'None
Caption = "assess2"
ClientHeight = 6915
ClientLeft = 135
ClientTop = 600
ClientWidth = 9495
Height = 7320
Left = 75
LinkMode = 1 'Source
LinkTopic = "Form3"
ScaleHeight = 6915
ScaleWidth = 9495
Tag = "diagnosis"
Top = 255
Width = 9615
Begin SSFrame Frame3D1
Alignment = 2 'Center
Caption = "IN CASE OF EMERGENCY NOTIFY"
Font3D = 2 'Raised w/heavy shading
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 6945
Left = 0
TabIndex = 8
Top = -15
Width = 9495
Begin AniPushButton AniButton2
BackColor = &H00FFFFFF&
Height = 480
Left = 4575
PictDrawMode = 1 'Autosize control
Picture = ASSESS2.FRX:0000
Speed = 162
TabIndex = 12
TextPosition = 2 'Left
Top = 6450
Width = 480
End
Begin AniPushButton AniButton1
BackColor = &H00C0C0C0&
Caption = "Back Page"
Height = 465
Index = 1
Left = 540
Picture = ASSESS2.FRX:05E2
Speed = 162
TabIndex = 20
TextPosition = 1 'Right
Top = 6405
Width = 1515
End
Begin AniPushButton AniButton1
BackColor = &H00C0C0C0&
Caption = "Next Page"
Height = 465
Index = 0
Left = 6930
Picture = ASSESS2.FRX:148E
Speed = 162
TabIndex = 21
TextPosition = 2 'Left
Top = 6315
Width = 1440
End
Begin PictureBox Picture4
Height = 3120
Left = 0
ScaleHeight = 3090
ScaleWidth = 9465
TabIndex = 13
Top = 3150
Width = 9495
Begin PictureBox Picture5
BackColor = &H00C0C0C0&
Height = 3090
Left = 0
ScaleHeight = 3060
ScaleWidth = 9465
TabIndex = 14
Top = 0
Width = 9495
Begin AniPushButton AniButton3
BackColor = &H00C0C0C0&
Cycle = 2 '2-state 1/2 & 1/2
Height = 480
Index = 1
Left = 8715
PictDrawMode = 1 'Autosize control
Picture = ASSESS2.FRX:233A
TabIndex = 25
Top = 2535
Width = 480
End
Begin VHedit HEdit3
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 2505
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = -30
TabIndex = 19
Top = -15
Version = 268435458
Width = 9510
End
Begin Label Label3
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Touch here for more room"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 90
TabIndex = 15
Top = 2700
Width = 3375
End
End
End
Begin PictureBox Picture2
BackColor = &H00C0C0C0&
Height = 2400
Left = 5535
ScaleHeight = 2370
ScaleWidth = 3945
TabIndex = 10
Top = 375
Width = 3975
Begin VBedit BEdit2
BackColor = &H00FFFFFF&
CellHeight = 480
CellWidth = 320
CharSet = 16404
CombBaseLine = 390
CombEndHeight = 350
CombEndMarker = 0 'False
CombHeight = 250
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
InkWidth = 2
Left = 0
TabIndex = 3
Top = 1605
Version = 268435458
Width = 3900
End
Begin VHedit hedit2
Enabled = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 525
Index = 1
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 1635
TabIndex = 7
Top = 1350
Version = 268435458
Visible = 0 'False
Width = 1500
End
Begin VBedit BEdit2
BackColor = &H00FFFFFF&
CellHeight = 480
CellWidth = 320
CharSet = 16404
CombBaseLine = 390
CombEndHeight = 350
CombEndMarker = 0 'False
CombHeight = 250
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Index = 0
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
InkWidth = 2
Left = 45
TabIndex = 2
Top = 450
Version = 268435458
Width = 3900
End
Begin VHedit hedit2
Enabled = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 585
Index = 0
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 2205
TabIndex = 6
Top = 315
Version = 268435458
Visible = 0 'False
Width = 1215
End
Begin Label Label4
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "WORK"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Index = 2
Left = 30
TabIndex = 17
Top = 1245
Width = 885
End
Begin Label Label4
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "HOME"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
Index = 0
Left = 30
TabIndex = 16
Top = 75
Width = 825
End
End
Begin PictureBox Picture3
BackColor = &H00000000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 2415
Left = 5040
ScaleHeight = 2385
ScaleWidth = 465
TabIndex = 11
Top = 375
Width = 495
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
Height = 2415
Left = -15
ScaleHeight = 2385
ScaleWidth = 5025
TabIndex = 9
Top = 375
Width = 5055
Begin AniPushButton AniButton3
BackColor = &H00C0C0C0&
Cycle = 2 '2-state 1/2 & 1/2
Height = 480
Index = 0
Left = 4470
PictDrawMode = 1 'Autosize control
Picture = ASSESS2.FRX:291C
TabIndex = 22
Top = 1665
Width = 480
End
Begin VBedit BEdit1
BackColor = &H00FFFFFF&
CellHeight = 400
CellWidth = 360
CharSet = 16655
CombBaseLine = 400
CombEndHeight = 350
CombEndMarker = 0 'False
CombHeight = 250
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 735
Index = 1
InflateBottom = 50
InflateLeft = 180
InflateRight = 180
InflateTop = 400
InkWidth = 2
Left = 45
TabIndex = 1
Top = 1590
Version = 268435458
Width = 4290
End
Begin VHedit hedit1
Enabled = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 1
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 1365
TabIndex = 5
Top = 1515
Version = 268435458
Visible = 0 'False
Width = 1815
End
Begin VBedit BEdit1
BackColor = &H00FFFFFF&
CellHeight = 400
CellWidth = 360
CharSet = 16655
CombBaseLine = 400
CombEndHeight = 350
CombEndMarker = 0 'False
CombHeight = 250
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 735
Index = 0
InflateBottom = 50
InflateLeft = 180
InflateRight = 180
InflateTop = 400
InkWidth = 2
Left = 0
TabIndex = 0
Top = 480
Version = 268435458
Width = 4995
End
Begin VHedit hedit1
Enabled = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 0
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 1155
TabIndex = 4
Top = 330
Version = 268435458
Visible = 0 'False
Width = 1815
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "RELATION"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
Index = 1
Left = 45
TabIndex = 24
Top = 1260
Width = 1395
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "NAME"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
Index = 0
Left = 45
TabIndex = 23
Top = 75
Width = 765
End
End
Begin Label Label2
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "ADMITTING MEDICAL DIAGNOSIS"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 2580
TabIndex = 18
Top = 2820
Width = 4935
End
End
End
Sub AniButton1_Click (Index As Integer)
If smartform(3) Then
Select Case Index
Case 1
assess1.Show
assess2.Hide
Case 0
medhist.Show
assess2.Hide
End Select
Else
formcheck "Emergency Notify"
End If
End Sub
Sub AniButton2_Click ()
If smartform(3) Then
menumode assess2
Else
formcheck "Emergency Notify"
End If
End Sub
Sub AniButton3_Click (Index As Integer)
Select Case Index
Case 0
Select Case anibutton3(Index).value
Case 2
editswap bedit1(0), hedit1(0), 1
hedit1(0).visible = -1
bedit1(0).visible = 0
editswap bedit1(1), hedit1(1), 1
hedit1(1).visible = -1
bedit1(1).visible = 0
editswap bedit2(0), hedit2(0), 1
hedit2(0).visible = -1
bedit2(0).visible = 0
editswap bedit2(1), hedit2(1), 1
hedit2(1).visible = -1
bedit2(1).visible = 0
temprecord.name = bedit1(0).text
temprecord.relation = bedit1(1).text
temprecord.home = bedit2(0).text
temprecord.work = bedit2(1).text
Case 1
editswap bedit1(0), hedit1(0), 2
hedit1(0).visible = 0
bedit1(0).visible = -1
editswap bedit1(1), hedit1(1), 2
hedit1(1).visible = 0
bedit1(1).visible = -1
editswap bedit2(0), hedit2(0), 2
hedit2(0).visible = 0
bedit2(0).visible = -1
editswap bedit2(1), hedit2(0), 2
hedit2(1).visible = 0
bedit2(1).visible = -1
End Select
Case 1 'LOCK FOR DIAGNOSIS FIELD
Select Case anibutton3(Index).value
Case 2
hedit3.enabled = 0
temprecord.hed1 = hedit3.text
Case 1
hedit3.enabled = -1
hedit3.SetFocus
hedit3.selstart = Len(hedit3.text)
End Select
End Select
End Sub
Sub BEdit2_Update (Index As Integer)
If bedit2(Index).selstart = 11 Then
If Mid$(bedit2(Index).text, 4, 1) <> "-" Or Mid$(bedit2(Index).text, 8, 1) <> "-" Then
For n = 1 To Len(bedit2(Index).text)
If n = 4 Or n = 8 Then
a$ = a$ + "-"
'a$ = a$ + Mid$(bedit2(Index).text, n, 1)
Else
a$ = a$ + Mid$(bedit2(Index).text, n, 1)
End If
Next n
bedit2(Index).text = a$
End If
bedit2(Index).selstart = 12
End If
End Sub
Sub Command1_Click ()
assess3.Show
End Sub
Sub Form_Load ()
bedit2(0).text = " - - "
bedit2(1).text = " - - "
assess2.Move 0, 0, screen.WIDTH, screen.height
frame3d1.Move 0, 0, assess2.WIDTH, assess2.height
hedit1(0).Move bedit1(0).left, bedit1(0).top, bedit1(0).WIDTH, bedit1(0).height * 1.1
hedit1(1).Move bedit1(1).left, bedit1(1).top, bedit1(1).WIDTH, bedit1(1).height * 1.1
hedit2(0).Move bedit2(0).left, bedit2(0).top, bedit2(0).WIDTH, bedit2(0).height * 1.1
hedit2(1).Move bedit2(1).left, bedit2(1).top, bedit2(1).WIDTH, bedit2(1).height * 1.1
anibutton1(1).Move .1 * anibutton1(1).WIDTH, frame3d1.height - 1.1 * anibutton1(0).height
anibutton2.Move (frame3d1.WIDTH - anibutton2.WIDTH) / 2, frame3d1.height - 1.1 * anibutton2.height
anibutton1(0).Move frame3d1.WIDTH - 1.1 * anibutton1(0).WIDTH, frame3d1.height - 1.1 * anibutton1(1).height
picture3.Scale (1, 1)-(2, 6)
picture3.autoredraw = -1
picture3.currentx = 1.1
picture3.currenty = 1
picture3.Print "P";
picture3.currentx = 1.1
picture3.currenty = 2
picture3.Print "H";
picture3.currentx = 1.1
picture3.currenty = 3
picture3.Print "O";
picture3.currentx = 1.1
picture3.currenty = 4
picture3.Print "N";
picture3.currentx = 1.1
picture3.currenty = 5
picture3.Print "E";
End Sub
Sub HEdit3_GotFocus ()
'hedit3.delayrecog = -1
End Sub
Sub Label3_Click ()
bigbedit.label1.caption = assess2.label2.caption
bigbedit.bedit1.text = assess2.hedit3.text
bigbedit.bedit1.selstart = Len(hedit3.text)
bigbedit.Show 1
End Sub
